home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh3x / sh34b.d64 / change addr (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  952b  |  38 lines
  1. 100 REM   AENDERT FREEZER-STARTADRESSE
  2. 120 REM     (C)1987 BY PATRICK URBAN
  3. 124 REM  STARK VERBESSERT VON N.HEUSLER
  4. 130 :
  5. 500 OPEN15,8,15,"I":OPEN2,8,2,"#
  6. 510 T[178]18:S[178]1:FR$[178]"FREEZERCLOSE
  7. 520 PRINT#15,"U1 2 0"T;S
  8. 550 PRINT#15,"B-P 2 0
  9. 560 [161]#2,A$:[139]A$[178]""[167]A$[178][199](.)
  10. 570 T[178][198](A$)
  11. 580 [161]#2,A$:[139]A$[178]""[167]A$[178][199](.)
  12. 590 S[178][198](A$)
  13. 600 [129]I[178]0[164]7:NA$[178]"":[152]15,"B-P 2"I[172]32[170]2
  14. 605 [161]#2,A$:A[178][198](A$[170][199](0)):[139](A[175]15)[179][177]2[167]630
  15. 607 [161]#2,A$,A$
  16. 610 [129]J[178]1[164]8:[161]#2,A$:[139]A$[178]""[167]A$[178][199](0)
  17. 620 NA$[178]NA$[170]A$:[130]:[139]NA$[178]FR$[167]700
  18. 630 [130]:[139]T[178]0[175]S[178]255[167]800
  19. 640 [137]520
  20. 700 [152]15,"B-P 2"I[172]32[170]3
  21. 710 [161]#2,A$
  22. 720 T[178][198](A$)
  23. 730 [161]#2,A$:[139]A$[178]""[167]A$[178][199](0)
  24. 740 S[178][198](A$)
  25. 750 [152]15,"U1:2 0"T;S:[152]15,"B-P 2 2
  26. 755 GET#2,D1$,D2$:PRINT#15,"B-P 2 2
  27. 756 D1[178][198](D1$[170][199](.))
  28. 757 D2[178][198](D2$[170][199](.))
  29. 758 D[178]D1[170]D2[172]256:[139]D[178]63276[167][153]"WARUM NOCHMAL ?":[137]770
  30. 759 [139]D[177][179]20480[167][153]"BITTE NOCHMAL MIT DEM MSE EINGEBEN!":[160]2:[160]15:[128]
  31. 760 [152]2,[199](44)[199](247);:[152]15,"U2:2 0"T;S
  32. 762 [153]"ADRESSE GEAENDERT
  33. 765 INPUT#15,F1:IFF1THENPRINT"DISKETTENFEHLER NR."F1:CLOSE2:CLOSE15:END
  34. 770 PRINT#15,"I":CLOSE2:CLOSE15
  35. 780 PRINT"OK !":END
  36. 800 CLOSE2:CLOSE15
  37. 810 PRINT"FILE NICHT GEFUNDEN!!":END
  38.